home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / ptg120co.zip / BBVALIDA.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-06  |  4KB  |  39 lines
  1. (* This file was mangled by Mangler 1.13 (c) Copyright 1993 by Berend de Boer *)
  2.  {$IFDEF DPMI} {$X+,S-} {$ELSE} {$X+,F+,O+} {$ENDIF} UNIT BBVALIDATE ;INTERFACE USES OBJECTS , VALIDATE ;
  3. TYPE PFILTERVALIDATOR =^TFILTERVALIDATOR ;TFILTERVALIDATOR =OBJECT (VALIDATE.TFILTERVALIDATOR)RESSTRID :WORD ;
  4. CONSTRUCTOR INIT (AVALIDCHARS :TCHARSET );CONSTRUCTOR LOAD (VAR S :TSTREAM );PROCEDURE ERROR ;VIRTUAL;END ;
  5. PRANGEVALIDATOR =^TRANGEVALIDATOR ;TRANGEVALIDATOR =OBJECT (VALIDATE.TRANGEVALIDATOR)RESSTRID :WORD ;CONSTRUCTOR INIT
  6. (AMIN ,AMAX:LONGINT );CONSTRUCTOR LOAD (VAR S :TSTREAM );PROCEDURE ERROR ;VIRTUAL;END ;
  7. PPXPICTUREVALIDATOR =^TPXPICTUREVALIDATOR ;TPXPICTUREVALIDATOR =OBJECT (VALIDATE.TPXPICTUREVALIDATOR)RESSTRID :WORD ;
  8. CONSTRUCTOR INIT (CONST APIC :STRING ;AUTOFILL :BOOLEAN );CONSTRUCTOR LOAD (VAR S :TSTREAM );PROCEDURE ERROR ;VIRTUAL;
  9. END ;PREALVALIDATOR =^TREALVALIDATOR ;TREALVALIDATOR =OBJECT (TPXPICTUREVALIDATOR)MIN , MAX :REAL ;CONSTRUCTOR INIT
  10. (AMIN ,AMAX:REAL );CONSTRUCTOR LOAD (VAR S :TSTREAM );PROCEDURE ERROR ;VIRTUAL;FUNCTION ISVALID (CONST S :STRING
  11. ):BOOLEAN ;VIRTUAL;PROCEDURE STORE (VAR S :TSTREAM );FUNCTION TRANSFER (VAR S :STRING ;BUFFER :POINTER ;
  12. FLAG :TVTRANSFER ):WORD ;VIRTUAL;END ;PROCEDURE REGISTERVALIDATE ;CONST RFILTERVALIDATOR :TSTREAMREC =(OBJTYPE :81 ;
  13. VMTLINK :OFS (TYPEOF (TFILTERVALIDATOR )^);LOAD :@ TFILTERVALIDATOR . LOAD ;STORE :@ TFILTERVALIDATOR . STORE );
  14. CONST RRANGEVALIDATOR :TSTREAMREC =(OBJTYPE :82 ;VMTLINK :OFS (TYPEOF (TRANGEVALIDATOR )^);LOAD :@ TRANGEVALIDATOR .
  15. LOAD ;STORE :@ TRANGEVALIDATOR . STORE );IMPLEMENTATION USES BBSTRRES , VIEWS , BBDLG , BBUTIL ;{$I PREAPP.INC}
  16. CONSTRUCTOR TFILTERVALIDATOR.INIT (AVALIDCHARS:TCHARSET);BEGIN INHERITED INIT(AVALIDCHARS );RESSTRID := SFILTERERROR ;
  17. END ;CONSTRUCTOR TFILTERVALIDATOR.LOAD (VAR S:TSTREAM);BEGIN INHERITED LOAD(S );RESSTRID := SFILTERERROR ;END ;
  18. PROCEDURE TFILTERVALIDATOR.ERROR ;BEGIN PRINTERROR (RSGET (RESSTRID ), HCNOCONTEXT );END ;
  19. CONSTRUCTOR TRANGEVALIDATOR.INIT (AMIN,AMAX:LONGINT);BEGIN INHERITED INIT(AMIN , AMAX );RESSTRID := SRANGEERROR ;END ;
  20. CONSTRUCTOR TRANGEVALIDATOR.LOAD (VAR S:TSTREAM);BEGIN INHERITED LOAD(S );RESSTRID := SRANGEERROR ;END ;
  21. PROCEDURE TRANGEVALIDATOR.ERROR ;BEGIN PRINTERROR (RSGET2 (SRANGEERROR , MIN , MAX ), HCNOCONTEXT );END ;
  22. CONSTRUCTOR TPXPICTUREVALIDATOR.INIT (CONST APIC:STRING ;AUTOFILL:BOOLEAN);BEGIN INHERITED INIT(APIC , AUTOFILL );
  23. RESSTRID := SPICTUREERROR ;END ;CONSTRUCTOR TPXPICTUREVALIDATOR.LOAD (VAR S:TSTREAM);BEGIN INHERITED LOAD(S );RESSTRID :=
  24. SPICTUREERROR ;END ;PROCEDURE TPXPICTUREVALIDATOR.ERROR ;BEGIN PRINTERROR (RSGET1 (RESSTRID , LONGINT (PIC )),
  25. HCNOCONTEXT );END ;CONSTRUCTOR TREALVALIDATOR.INIT (AMIN,AMAX:REAL);BEGIN INHERITED INIT('[-]#[*#][[.]#[*#]][E[-]#[#]]',
  26. FALSE );OPTIONS := OPTIONS AND NOT VOONAPPEND ;MIN := AMIN ;MAX := AMAX ;RESSTRID := SREALERROR ;END ;
  27. CONSTRUCTOR TREALVALIDATOR.LOAD (VAR S:TSTREAM);BEGIN INHERITED LOAD(S );S.READ (MIN , SIZEOF (MAX )+ SIZEOF (MIN ));
  28. S.READ (RESSTRID , SIZEOF (RESSTRID ));END ;PROCEDURE TREALVALIDATOR.ERROR ;VAR Ol0100I,Ol0O01O:STRING ;BEGIN Ol0100I :=
  29. STRIPSPC (STRR (MIN , 7 , 2 ));Ol0O01O := STRIPSPC (STRR (MAX , 7 , 2 ));PRINTERROR (RSGET2 (RESSTRID , LONGINT (@
  30. Ol0100I ), LONGINT (@ Ol0O01O )), HCNOCONTEXT );END ;FUNCTION TREALVALIDATOR.ISVALID (CONST S:STRING ):BOOLEAN ;
  31. VAR OI1IO1O100Ol:REAL;OI0ll01lOOOl:INTEGER;BEGIN ISVALID := FALSE ;IF INHERITED ISVALID(S )THEN BEGIN VAL (S ,
  32. OI1IO1O100Ol , OI0ll01lOOOl );IF (OI0ll01lOOOl =0 )AND (OI1IO1O100Ol >= MIN )AND (OI1IO1O100Ol <= MAX )THEN ISVALID :=
  33. TRUE ;END ;END ;PROCEDURE TREALVALIDATOR.STORE (VAR S:TSTREAM);BEGIN INHERITED STORE(S );S.WRITE (MIN , SIZEOF (MAX )+
  34. SIZEOF (MIN ));S.WRITE (RESSTRID , SIZEOF (RESSTRID ));END ;FUNCTION TREALVALIDATOR.TRANSFER (VAR S:STRING ;
  35. BUFFER:POINTER;FLAG:TVTRANSFER):WORD ;VAR OI1IO1O100Ol:REAL;OI0ll01lOOOl:INTEGER;BEGIN IF OPTIONS AND VOTRANSFER <> 0
  36. THEN BEGIN TRANSFER := SIZEOF (OI1IO1O100Ol );CASE FLAG  OF VTGETDATA :BEGIN VAL (S , OI1IO1O100Ol , OI0ll01lOOOl );REAL
  37. (BUFFER ^):= OI1IO1O100Ol ;END ;VTSETDATA :STR (REAL (BUFFER ^), S );END ;END ELSE TRANSFER := 0 ;END ;
  38. PROCEDURE REGISTERVALIDATE ;BEGIN REGISTERTYPE (RFILTERVALIDATOR );REGISTERTYPE (RRANGEVALIDATOR );END ;END .
  39.